home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1985 September
/
Ahoy_Magazine_85-09_1985_Double_L.d64
/
dragon type2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
69 lines
10 rem program 2
20 print" run"
30 n=99:dimw$(n):sc=53280
100 forj=832to1022:readb:pokej,b:next
130 poke2040,13:poke2041,14:poke2042,15
150 poke792,193:sys49659
155 fori=0ton:readw$(i):next
160 print"[144]"tab(10)"choose typing speed"
170 printtab(15)"1. fast":printtab(15)"2. medium":printtab(15)"3. slow"
190 geta$:ifa$=""then190
200 a=val(a$):ifa<1ora>3then190
210 poke49943,a:poke49944,a*30
500 print"[147]":pokesc,5:pokesc+1,15
510 forj=1to9:a$=" ":fori=0to6:r=int(rnd(0)*n)
520 a$=a$+" "+w$(r):next
530 printleft$(a$,35):print:next:poke198,0:t0=ti:sys49152
540 t=(ti-t0)/3600:e=peek(49945):pokesc,5:pokesc+1,13:s=int(47/t+.5)
545 ifpeek(49946)thens=0:e=0
550 sr=s*90-20*e:ifsr>hsthenhs=sr
560 s$=right$(str$(s),2):e$=right$(str$(e),2)
565 sr$=right$(str$(sr),4):hs$=right$(str$(hs),4)
570 print"[147]"tab(11)"speed .........."s$
580 printtab(11)"errors.........."e$
590 printtab(11)"score........."sr$
600 printtab(11)"high score...."hs$
610 printtab(8)"[175][175][175][175][175][175][175][175][175]"spc(7)"[175][175][175][175][175][175][175][175]"
620 printtab(8)" space "spc(7)" return "
630 printtab(8)"[144]continue"spc(10)"end"
700 poke198,0
710 geta$:ifa$=""then710
720 ifa$<>chr$(13)anda$<>chr$(32)then710
725 poke53269,0
730 ifa$=chr$(32)then500
740 poke792,71:end
1000 data0,127,128,1,249,192,3,248
1001 data224,3,255,231,3,255,253,35
1002 data255,255,33,255,192,64,243,254
1003 data64,112,0,32,120,0,33,252
1004 data0,71,252,0,79,254,0,111
1005 data246,0,111,243,128,63,224,64
1006 data31,192,0,7,224,0,30,96
1007 data0,48,48,0,60,30,0,21
1008 data1,255,0,3,243,128,7,241
1009 data192,7,255,206,7,255,250,7
1010 data255,254,99,255,128,17,243,252
1011 data16,112,0,32,120,0,65,248
1012 data0,135,248,0,143,252,0,79
1013 data252,0,111,246,0,63,226,0
1014 data31,194,0,7,192,0,3,128
1015 data0,7,0,0,15,224,0,21
1016 data0,127,0,1,249,199,3,248
1017 data253,3,255,255,3,255,240,3
1018 data255,224,17,255,192,16,247,128
1019 data32,115,128,32,113,128,65,248
1020 data192,71,248,96,79,252,0,111
1021 data246,0,111,243,128,63,224,64
1022 data31,192,0,7,224,0,30,96
1023 data0,48,048,0,60,30,0
2000 dataknight,maiden,king,queen,prince,sword,zebra,vise,peasant,knave
2005 datalance,bucket,quilt,flagon,wizard,bird,hut,bridge,pike,man
2010 datahex,child,river,chest,gold,silver,coin,castle,tunic,spear
2015 datapath,mail,joker,helmet,flask,beast,animal,maze,bay,lord
2020 datatorch,table,chair,stable,horse,bishop,jester,crown,game,book
2025 datayeoman,xebec,gorge,pit,shield,armour,thief,yam,cook,shoe
2030 dataliver,mallet,cart,tax,ravine,quail,bow,arrow,hen,fire
2035 datababy,wine,jewel,dungeon,knife,serf,cross,damsel,quiver,haze
2040 dataviper,lion,dog,candle,wolf,ship,log,grate,nut,cannon
2045 dataquarry,ibex,key,kid,bazaar,cloak,gem,lantern,stag,scarf